home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue42 / construc / UNIT1.DFM / UNIT1.txt
Encoding:
Text File  |  1999-01-11  |  6.7 KB  |  222 lines
  1. object FormNews: TFormNews
  2.   Left = 281
  3.   Top = 167
  4.   Width = 640
  5.   Height = 480
  6.   Caption = 'BobNews -- Dr.Bob'#39's News Reader v0.2'
  7.   Color = clBtnFace
  8.   Font.Charset = DEFAULT_CHARSET
  9.   Font.Color = clWindowText
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   OldCreateOrder = False
  14.   ShowHint = True
  15.   OnCreate = FormCreate
  16.   PixelsPerInch = 96
  17.   TextHeight = 13
  18.   object Splitter: TSplitter
  19.     Left = 172
  20.     Top = 30
  21.     Width = 3
  22.     Height = 312
  23.     Cursor = crHSplit
  24.   end
  25.   object TSplitter
  26.     Left = 0
  27.     Top = 342
  28.     Width = 632
  29.     Height = 3
  30.     Cursor = crVSplit
  31.     Align = alBottom
  32.   end
  33.   object ToolBar: TPanel
  34.     Left = 0
  35.     Top = 0
  36.     Width = 632
  37.     Height = 30
  38.     Align = alTop
  39.     TabOrder = 0
  40.     object BtnConnect: TSpeedButton
  41.       Left = 8
  42.       Top = 4
  43.       Width = 23
  44.       Height = 22
  45.       Hint = 'Connect'
  46.       Glyph.Data = {
  47.         DE010000424DDE01000000000000760000002800000024000000120000000100
  48.         0400000000006801000000000000000000001000000010000000000000000000
  49.         80000080000000808000800000008000800080800000C0C0C000808080000000
  50.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
  51.         6666666666666F6666666666000066666636666666666666666686F666666666
  52.         0000666666306666666666666666886F66666666000066666663066666666666
  53.         66666886F6666666000066666663B066666666666666F8F86F66666600006666
  54.         63000F06666666666668888686F666660000666663FBFBF06666666666686F66
  55.         686F666600006666663FB0333666666666668F688886666600006666663BFB06
  56.         6666666666FF8FF686F66666000066630000BFB06666666668888866686F6666
  57.         00006663FBFBFBFB06666666686F6666668F6666000066663FBFB03336666666
  58.         668F666888866666000066663BFBFB06666666666686F66686F6666600006666
  59.         63BFBFB0666666666668F666686F66660000666663FBFBFB0666666666686F66
  60.         6686F66600006666663FBFBFB066666666668FFFFFF8FF660000666666333333
  61.         3336666666668888888886660000666666666666666666666666666666666666
  62.         0000}
  63.       NumGlyphs = 2
  64.       OnClick = BtnConnectClick
  65.     end
  66.     object BtnDisconnect: TSpeedButton
  67.       Left = 32
  68.       Top = 4
  69.       Width = 23
  70.       Height = 22
  71.       Hint = 'Disconnect'
  72.       Enabled = False
  73.       Glyph.Data = {
  74.         DE010000424DDE01000000000000760000002800000024000000120000000100
  75.         0400000000006801000000000000000000001000000010000000000000000000
  76.         80000080000000808000800000008000800080800000C0C0C000808080000000
  77.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666660666
  78.         666666666666668F666666660000666666600666666666666666688F66666666
  79.         00006666668008666666666666668888F66666660000666668F0086666666666
  80.         66686886F6666666000066660FF0FF6666666666668F68F6F666666600006660
  81.         0F00F88666666666688F88F68F66666F00006680000080066666806688888888
  82.         8F666688000068FF0F0070006668F068F68F886888F66868000068F00F87F80F
  83.         868B0668F88F8F68868F8686000068000800F0FFF8F06668888F88F8F6686866
  84.         000066008000000F8B066666888888888F86866600006607700F0008F0666666
  85.         8F6886888868666600006687F0FFF08B066666668F68F6688686666600006668
  86.         800FF8F06666666668888FF8686666660000666600008B066666666666888886
  87.         86666666000066666008F06666666666666888686666666600006666668B0666
  88.         6666666666668F86666666660000666666806666666666666666886666666666
  89.         0000}
  90.       NumGlyphs = 2
  91.       OnClick = BtnDisconnectClick
  92.     end
  93.     object BtnJoin: TSpeedButton
  94.       Left = 72
  95.       Top = 4
  96.       Width = 23
  97.       Height = 22
  98.       Hint = 'Join newsgroup'
  99.       Enabled = False
  100.       Glyph.Data = {
  101.         DE010000424DDE01000000000000760000002800000024000000120000000100
  102.         0400000000006801000000000000000000001000000010000000000000000000
  103.         80000080000000808000800000008000800080800000C0C0C000808080000000
  104.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
  105.         6666666666666666666666660000666666666666666666666666666666666666
  106.         0000666666666666666666666666666666666666000066666666FFF666666666
  107.         666666FFF666666600006666666844F66666666666666877F666666600006666
  108.         666844F66666666666666877F666666600006666666844F66666666666666877
  109.         F666666600006666FFF644FFFFF6666666FFF777FFFFF6660000666844444444
  110.         44F66666687777777777F666000066684444444444F66666687777777777F666
  111.         000066688888446888666666688888777888666600006666666844F666666666
  112.         66666877F666666600006666666844F66666666666666877F666666600006666
  113.         666844F66666666666666877F666666600006666666888666666666666666888
  114.         6666666600006666666666666666666666666666666666660000666666666666
  115.         6666666666666666666666660000666666666666666666666666666666666666
  116.         0000}
  117.       NumGlyphs = 2
  118.       OnClick = BtnJoinClick
  119.     end
  120.     object BtnPostReply: TSpeedButton
  121.       Left = 112
  122.       Top = 4
  123.       Width = 23
  124.       Height = 22
  125.       Caption = 'P'
  126.       Enabled = False
  127.       Font.Charset = ANSI_CHARSET
  128.       Font.Color = clMaroon
  129.       Font.Height = -13
  130.       Font.Name = 'Comic Sans MS'
  131.       Font.Style = [fsBold]
  132.       ParentFont = False
  133.       Spacing = -1
  134.       OnClick = BtnPostReplyClick
  135.     end
  136.   end
  137.   object StatusBar: TStatusBar
  138.     Left = 0
  139.     Top = 434
  140.     Width = 632
  141.     Height = 19
  142.     Panels = <>
  143.     SimplePanel = False
  144.     SimpleText = 'Welcome at BobNews v.02'
  145.   end
  146.   object MemoStatus: TMemo
  147.     Left = 0
  148.     Top = 345
  149.     Width = 632
  150.     Height = 89
  151.     Align = alBottom
  152.     ReadOnly = True
  153.     ScrollBars = ssVertical
  154.     TabOrder = 2
  155.   end
  156.   object ListBoxNewsGroups: TListBox
  157.     Left = 0
  158.     Top = 30
  159.     Width = 172
  160.     Height = 312
  161.     Align = alLeft
  162.     ItemHeight = 13
  163.     Sorted = True
  164.     TabOrder = 3
  165.     OnDblClick = BtnJoinClick
  166.   end
  167.   object TPanel
  168.     Left = 175
  169.     Top = 30
  170.     Width = 457
  171.     Height = 312
  172.     Align = alClient
  173.     BevelOuter = bvNone
  174.     TabOrder = 4
  175.     object TSplitter
  176.       Left = 0
  177.       Top = 118
  178.       Width = 457
  179.       Height = 3
  180.       Cursor = crVSplit
  181.       Align = alTop
  182.     end
  183.     object MemoArticle: TMemo
  184.       Left = 0
  185.       Top = 121
  186.       Width = 457
  187.       Height = 191
  188.       Align = alClient
  189.       Font.Charset = ANSI_CHARSET
  190.       Font.Color = clWindowText
  191.       Font.Height = -11
  192.       Font.Name = 'Courier New'
  193.       Font.Style = []
  194.       ParentFont = False
  195.       ReadOnly = True
  196.       ScrollBars = ssBoth
  197.       TabOrder = 0
  198.     end
  199.     object StringGridArticles: TStringGrid
  200.       Left = 0
  201.       Top = 0
  202.       Width = 457
  203.       Height = 118
  204.       Align = alTop
  205.       ColCount = 4
  206.       DefaultColWidth = 145
  207.       DefaultRowHeight = 16
  208.       FixedCols = 0
  209.       RowCount = 32767
  210.       GridLineWidth = 0
  211.       Options = [goFixedVertLine, goFixedHorzLine, goRangeSelect, goRowSelect]
  212.       TabOrder = 1
  213.       OnClick = StringGridArticlesClick
  214.     end
  215.   end
  216.   object BNNTP: TBNNTP
  217.     NewsServer = '194.229.217.69'
  218.     Left = 96
  219.     Top = 120
  220.   end
  221. end
  222.